100 POKE53280,2:POKE53281,1:POKE646,0
110 PRINTCHR$(147)"CONTINOUS DIVISION TABLES"
120 FOR T=1 TO 12
130 FOR N=1 TO 12
140 D=T/N
150 PRINT T;"/"N;"=";D:PRINT
160 FOR G=1 TO 1500:NEXT G
170 NEXT N
180 NEXT T
200 INPUT"WOULD YOU LIKE TO SEE THEM AGAIN(Y/N)";Z$
210 IF Z$="Y" THEN 110
220 IF Z$="N" THEN 300
300 END
4999 PRINTCHR$(147)
5000 PRINTTAB(12)         CHR$(144)"*** FOGGER ***":PRINT:PRINT:PRINT:PRINT
5005 FOR T= 1 TO 3000:NEXT T
5010 PRINTTAB(12)CHR$(144)"*** PRESENTS ***":PRINT:PRINT:PRINT:PRINT
5015 FOR I= 1 TO 3000:NEXT I
5020 PRINTTAB(4)CHR$(144)"*** CONTINOUS DIVISION TABLES ***"
5025 FOR W= 1 TO 3000:NEXT W
5030 RETURN